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PROCEDURE HAIN; 
JF Xf10DE=UTL THEN 

DO: 

/*? HODE^'UTL" */ 0 
BUF=3Q; /* *-/ 

END; 
ELSE 

DO; 

/»? MODE-"UAP'^ »y 5 1 
BUF=20; /* Av77l8 */ 
END: 
IF NOK>0 THEN 
DO: 

/»! FUNC="DEL"; */^ 

CALL H0D1("DEL"); 
END; 
ELSE 
DO; 

/*! F[JNC-"ADD"; */ ^ 55 
CALL MODI ("ADD"); 
END; 
/* */ 
IF HC-ERROR THEN 

FLAG=ON; 
ELSE; 
END; 
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PROCEDURE MODl(XFUNC); 
IF XFUNC="ADD'' THEN 
DO; 

5 2 V /»? FUNC = "ADD" */ 

NUN=NUM+l; 
- END; 
ELSE 
DO: 

5 3 — V /*? FUNC="DEL" */ 

NUrt=NU«-l ; 
END; 

END; 



-578- 



(9) 



J^Bg¥5-2 57666 



[07] 



< J? a - ;Kl A* - ^ft L fc P A D Hfl>« 



]>20 ? 



[B9i 



( start} 



c 



901 



%*mmmn 



902 



»-STOi<l);| 



7D- 



903 



END 



imi 5] 

015 

C start) 



mtcmimi 



1401 

-J 



[138] 

ms 



(a) 



(b) 



(c) 



7D-ft- 



1/ 



1402 



7P-ft-H!if. "K " 



1403 



END ^ 



8 0 



/*! V»A: •/ 



81 



/*j »=Br^|~-8 2 



•(V=A OR V=B) It^iMl* 



8 3 



84 



/*! V=A; »/ 



(V»A OR V=*) St»IS» 



y*! V»A; «/~85 



/«t V=B; «/^86 



(V=B) gfSttim 



-579- 



(10) !»Bi¥5-2576 66 



mi 0] 



1 0 



(7P-»t-fgl{i(IMit) 



904 



905 



909 



906 



mmh 



907 



908 



mitmrnn 



-580— 



(11) 



#IB¥5-2 5 7 6 6 6 



[011] 



tH 










\ 


i IS 








< 


1 % 

^ IW 


1 

n IK 


> 



=5 




1 




n 




^> 






















n 




n 

















^ 1 




% \ 





5. 




-581— 



(12) 



5-257666 



II 3] 



il 3 



1 012A 



PROCEDDRE HAIH; 

M ni7rimS V _ 
IF XHOD£::UTL TBEN 
DO; 

/«? MODE="UTL" */ 
BUF=30; /» n^ljU */ 

END; 
ELSE 

DO; 

/*? HODE="UAP" */ 
BUF=20: /» f^l7?U */ 
END: 
IF NDH>0 THEN 
DO; 

/*! FUNC="DEL''; */ 
CALL MODI r "DEL"): 

END; 
ELSE 
DO; 

/*! FUNC="ADD"; */ 
CALL MODl("ADD->: 
END; ^ 
/* I7-»| */ ^130 1 

IF RC=ERROR THEN 

FLAG=ON; 
ELSE; 
END; 
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PROCEDURE HODl(XFUNC); 
IF XFUNC^^ADD" THEN 

DO; 

/*? FUNC="ADD*' ♦/ 

101 2B^^ NUM-NUM41; 
END; 
ELSE 
DO; 

/*? FUNC=*DEL" */ 

M mmy »/ 

1012C-^ HUH=NUM-l; 
END: 

END; 
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